home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / eagui30.lha / EAGUI / Modula2 / txt / EAGuiL.def < prev    next >
Encoding:
Modula Definition  |  1994-12-01  |  3.5 KB  |  116 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.    
  3.  | $VER: EAGuiL.def 3.00 (23.11.94) by Stefan Schulz [sts]
  4.  
  5.  | Desc: Interface to EAGUI.library
  6.  
  7.  | Dist: This Module is © Copyright 1994 by Stefan Schulz
  8.  
  9.  | Rqrs: Amiga OS 2.0 or higher
  10.  |       EAGUI.library V3
  11.  |       EAGUI - Environment Adaptive Graphic User Interface
  12.  |       Copyright © 1993, 1994 by Marcel Offermans and Frank Groen
  13.  
  14.  | Lang: M2Amiga
  15.  | Trns: M2Amiga Modula 2 Software Development System
  16.  |       © Copyright by A+L AG, CH-2540 Grenchen
  17.  
  18.  | Hist: Version \date\
  19.  |
  20.  |       3.00   \23.11.94\
  21.  |              interface adapted to EAGUI.library V3
  22.  |              names changed to M2-Standard
  23.  |
  24.  |       1.00   \01.05.94\
  25.  |              initial Version
  26.  
  27.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  28.  
  29. DEFINITION MODULE EAGuiL{"EAGUI.library",3};
  30.  
  31. (* IMPORTS ********************************************************************** *)
  32.  
  33. IMPORT  d       : EAGuiD;
  34.  
  35. IMPORT  ed      : ExecD,
  36.         gd      : GraphicsD,
  37.         id      : IntuitionD,
  38.         R,
  39.         S       : SYSTEM,
  40.         ud      : UtilityD;
  41.  
  42. (* ****************************************************************************** *)
  43.  
  44. VAR     eaguiVersion    : INTEGER;
  45.         eaguiBase       : ed.LibraryPtr;
  46.  
  47. CONST   eaguiMinVersion = 3;
  48.         eaguiName       = "EAGUI.library";
  49.  
  50. PROCEDURE CreateGadgetList
  51.            (    obj{R.A0}       : d.OPTR;
  52.                 glist{R.A1}     : S.ADDRESS;
  53.                 vi{R.A2}        : S.ADDRESS;
  54.                 di{R.A3}        : id.DrawInfoPtr) : LONGINT ; CODE -54;
  55.  
  56. PROCEDURE DisposeObject
  57.            (    obj{R.A0}       : d.OPTR        ); CODE -102;
  58.  
  59. PROCEDURE FreeGadgetList
  60.            (    obj{R.A0}       : d.OPTR;
  61.                 glist{R.A1}     : id.GadgetPtr  ); CODE -60;
  62.  
  63. PROCEDURE GetAttr
  64.            (    obj{R.A0}       : d.OPTR;
  65.                 attribute{R.D0} : LONGCARD      ) : LONGCARD; CODE -72;
  66.  
  67. PROCEDURE GetAttrsA
  68.            (    obj{R.A0}       : d.OPTR;
  69.                 tags{R.A1}      : ud.TagItemPtr ) : LONGCARD; CODE -78;
  70.  
  71. PROCEDURE GetMinSizes
  72.            (    obj{R.A0}       : d.OPTR        ); CODE -30;
  73.  
  74. PROCEDURE GetObjectLeft
  75.            (    root{R.A0}      : d.OPTR;
  76.                 obj{R.A1}       : d.OPTR        ) : LONGINT; CODE -42;
  77.  
  78. PROCEDURE GetObjectTop
  79.            (    root{R.A0}      : d.OPTR;
  80.                 obj{R.A1}       : d.OPTR        ) : LONGINT; CODE -48;
  81.  
  82. PROCEDURE LayoutObjects
  83.            (    obj{R.A0}       : d.OPTR        ); CODE -36;
  84.  
  85. PROCEDURE NewObjectA
  86.            (    type{R.D0}      : LONGCARD;
  87.                 tags{R.A0}      : ud.TagItemPtr ) : d.OPTR; CODE -96;
  88.  
  89. PROCEDURE NewRelationA
  90.            (    obj{R.A0}       : d.OPTR;
  91.                 hook{R.A1}      : ud.HookPtr;
  92.                 tags{R.A2}      : ud.TagItemPtr ) : LONGINT ; CODE -66;
  93.  
  94. PROCEDURE RenderObjects
  95.            (    obj{R.A0}       : d.OPTR;
  96.                 rportPtr{R.A1}  : gd.RastPortPtr); CODE -120;
  97.  
  98. PROCEDURE SetAttr
  99.            (    obj{R.A0}       : d.OPTR;
  100.                 attribute{R.D0} : LONGCARD;
  101.                 value{R.D1}     : LONGCARD      ) : LONGCARD; CODE -84;
  102.  
  103. PROCEDURE SetAttrsA
  104.            (    obj{R.A0}       : d.OPTR;
  105.                 tags{R.A1}      : ud.TagItemPtr ) : LONGCARD; CODE -90;
  106.  
  107. PROCEDURE TextHeight
  108.            (    textattr{R.A0}  : gd.TextAttrPtr) : LONGINT ; CODE -114;
  109.  
  110. PROCEDURE TextLength
  111.            (    textattr{R.A0}  : gd.TextAttrPtr;
  112.                 string{R.A1}    : d.StrPtr;
  113.                 underscore{R.D0}: CHAR          ) : LONGINT ; CODE -108;
  114.  
  115. END EAGuiL.
  116.